home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 229 (1992-12-10)(Manewaldt, A.)(DE)(PD).zip / Taifun 229 (1992-12-10)(Manewaldt, A.)(DE)(PD).adf / AMOS-SOURCE / SCROLLER.AMOS / SCROLLER.amosSourceCode < prev    next >
AMOS Source Code  |  1992-12-01  |  3KB  |  139 lines
  1. View 
  2. Hide On 
  3. Dim FARBEN(7)
  4. Rem Load "df0:amos-source/inmus.abk" 
  5. Music 1
  6. Screen Open 0,400,80,8,Lowres
  7. Rem Load Iff "df0:amos-source/logo8",1 
  8. Rem Spack 1 To 4 
  9. Unpack 4 To 1
  10. For I=1 To 8
  11. FARBEN(I-1)=Colour(I)
  12. Next 
  13. Get Icon 1,1,0,0 To 300,100
  14. Rem  
  15. Screen Close 1
  16. Screen Open 1,400,100,8,Lowres
  17. Rem  Screen Display 0,112,245,320,30 
  18. Rem  Screen Display 1,112,245,320,30 
  19. Wait Vbl 
  20. Screen Display 0,128,250,320,70
  21. Screen Display 1,128,250,320,100
  22. Wait Vbl 
  23. Screen 1
  24. Curs Off 
  25. Flash Off 
  26. Cls 0
  27. Dual Playfield 0,1
  28. Screen 1
  29. Paste Icon 0,0,1
  30. Screen Open 2,320,100,8,Lowres
  31. Rem Load Iff "df0:amos-source/font8",2 
  32. Rem Spack 2 To 5 
  33. Unpack 5 To 2
  34. Screen Hide 2
  35. Screen Open 5,320,100,8,Lowres
  36. Rem Load Iff "df0:amos-source/bootbild",5
  37. Rem Spack 5 To 6 
  38. Unpack 6 To 5
  39. Screen Display 5,128,60,320,185
  40. Screen 0
  41. Cls 0
  42. Def Scroll 1,0,0 To 400,65,-2,0
  43. Flash Off 
  44. Curs Off 
  45. Cls 0
  46. Get Palette 2
  47. For I=9 To 15
  48. Colour I,FARBEN(I-9)
  49. Next 
  50. Channel 0 To Screen Offset 1 : Rem kanal 0 belegen  
  51. WORK$="Loop:Move 0,40,20;Move 0,-40,20;Jump Loop"
  52. Amal 0,WORK$
  53. Channel 1 To Screen Offset 0 : Rem kanal 1 belegen  
  54. WORK2$="Loop:Move 0,30,10;Move 0,-30,20;Jump Loop"
  55. Amal 1,WORK2$
  56. Channel 10 To Screen Offset 5
  57. WORK2$="Loop:Move 320,0,50;Move -320,0,50;Jump Loop"
  58. Amal 10,WORK2$
  59. SPRITTIES
  60. FARBENBOGEN
  61. Amal On 
  62. Do 
  63. Rem Screen 5 
  64. LAUFSCHRIFT
  65. T=T+10
  66. If T>250 Then T=0
  67. If Mouse Key=2 Then T=T-4
  68. Screen 5
  69. Shift Up 5,4,7,1
  70. If Mouse Key=1 Then Music Off : Fade 2 : Boom : End 
  71. Loop 
  72. Rem
  73. Rem
  74. Rem
  75. Procedure LAUFSCHRIFT
  76. Shared ZAEHLER
  77. If INIT=0
  78.   B$=" LAABER LAABER ...... ACHTUNG JETzt gehts los"
  79.   B$=B$+" DAS SR-SOFTWARE-DESIGN-LESSON-ONE PAKET DIENT ZUM"
  80.   B$=B$+" besseren Verstaendnis der englischen Grammatik"
  81.   B$=Upper$(B$)
  82.   INIT=1
  83. End If 
  84. ZAEHLER=ZAEHLER+1
  85. If ZAEHLER=1 Then Dual Priority 0,1
  86. If ZAEHLER=8 Then Dual Priority 0,1
  87. Rem If ZAEHLER=20 Then Dual Priority 1,0 
  88. Rem If ZAEHLER=30 Then Dual Priority 1,0 
  89. If ZAEHLER>Len(B$) Then ZAEHLER=1
  90.  A$=Mid$(B$,ZAEHLER,1)
  91.  A=Asc(A$)-32
  92.  A2=Int(A/10)
  93.  A3=A-((A2)*10)
  94.  X1=A3*32
  95.  X2=X1+32
  96.  Y1=A2*32
  97.  Y2=Y1+26
  98. Screen Copy 2,X1,Y1,X2,Y2 To 0,360,30
  99. For I=1 To 16
  100.  Wait Vbl 
  101. Screen 0
  102. Scroll 1
  103. Next I
  104. End Proc
  105. Procedure SPRITTIES
  106. Rem Load "dh1:aMOS/Sprites/balls_sprites.abk"
  107. Rem Sprite 9,130,90,1
  108. Screen 5
  109. WORK2$="Loop:Move 320,0,40;Move -320,0,40;Jump Loop"
  110. Rem Amal 9,WORK2$
  111. A$=A$+"       AUtotest(Let R1=Vu(R0)*3; If R1=0 eXit else Direct Start)"
  112.  A$=A$+"Start: Let R2=R1; Let X=R0*32+R2; Let Y=RA-R1; Anim 4,(1,2)(2,2)(3,2)(4,2); Pause;"
  113. Rem A$=A$+"Start: Let R2=R1; Let X=R0*32+R2;Let Y=100; Anim 4,(1,2)(2,2)(3,2)(4,2); Pause;"
  114. A$=A$+"       Move 0-R2,R2,RB; Wait;"
  115. Rem set RA and RB to 100 and 25 repecitively 
  116. Amreg(0)=180 : Amreg(1)=25
  117. Rem Intailise bobs 
  118.    For N=0 To 3
  119.    Rem Position bob   
  120.    Bob N,N*32,Amreg(0),1
  121.    Rem Assign channel to bob
  122.    Channel N+4 To Bob N
  123.    Rem Assign amal command to bob 
  124.    Amal N+4,"Let R0="+Str$(N)+A$
  125. Next N
  126. End Proc
  127. Procedure FARBENBOGEN
  128. Set Rainbow 1,3,800,"","",""
  129. For A=0 To 700 Step 32
  130.  For B=0 To 15
  131.   Rain(1,A+B)=B+16*B+256*B
  132.   Rain(1,A+30-B)=B+16*B+256*B
  133.  Next B
  134. Next A
  135. Rainbow 1,1,40,100
  136. Channel 8 To Rainbow 1
  137. Amal 8,"Loop:Let X=X+1;If X>416 Jump New;Pause;Jump Loop;New:Let X=0;Jump Loop"
  138. Amal On 8
  139. End Proc